0 REM==================================      ==================================
1 REM= COMPUTER CARTOON,BY JIM GREEN  =      = IDEA FROM A CARTOON STRIP IN   =
2 REM= FAMILY COMPUTING,NOV.1984,P.40 =      = GOOD EXAMPLE OF  DUMB, DUMB    =
3 REM= COMPUTER PROGRAMMING.          =      ==================================
4 REM= PUBLIC DOMAIN.WHO WOULD BUY IT =      ==================================.
5 POKE53280,5:POKE53281,14
6 PRINT"[147][158]   THE COMPUTER THAT GOT'TOO'FRIENDLY   [146]":FORD=1TO2000:NEXT
10 G$="                                        "
16 PRINT""
18 PRINT"              [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
20 PRINT"              [221]                     [221]"
22 PRINT"              [221] [167][144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165] [221]"
24 FORT=1TO7:PRINT"              [221] [167][144]                 [165] [221]":NEXT
26 PRINT"              [221] [167][144][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][165] [221]"
28 PRINT"              [221]            . . . [215]  [221]"
30 PRINT"              [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
32 PRINT"                 [153][176][192][192][179] = = = = [171][192][192][174]"
34 PRINT"              [144][213][192][192][209][153]--[173][192][192][192][192][192][192][192][192][192][189][144].[153] [221]"
36 PRINT"              [144][221]  [153][221] [209][209][209][209][209][209][209][209][209][209][209] [209] [221]"
38 PRINT"    [144][213][192][201]    [213][192][192][203]  [153][221] [209][209][209][209][209][209][209][209][209][209][209] [209] [221]"
40 PRINT"    [144][221][159]=[144][221]    [221]     [153][221]    [162][162][162][162][162][146]      [221]"
42 PRINT"    [144][202][192][203] =D[192][203]     [153][202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
43 FORD=1TO2000:NEXT
44 PRINT"":FORT=1TO18:PRINT:NEXT:FORT=1TO4:PRINTTAB(7)"        ":NEXT
48 PRINT"[145][145][145][145][144][203][145][157][213][201][157][202][203][145][157][213][201][157][202][203][145][157][213][192][192][192][192]":PRINT"[144][213][157][219][157][155][215]"
49 POKE54296,15:POKE54296,0
50 PRINT""TAB(17)"[159][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
52 FORT=1TO7:PRINTTAB(17)"[180]               [170]":NEXT
54 PRINTTAB(17)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
56 PRINT""TAB(31)"[129]*":FORD=1TO1300:NEXT
70 PRINT""
72 PRINTTAB(21)"[159][213][192][196][197][196][197][196][192][201][221][206][163][205] [206][163][205][221]"
74 PRINTTAB(21)"[213][179] [215]   [215] [171][201][202][179]   [209]   [171][203]"
76 PRINTTAB(21)"[221]       [221][221] [183][184][146][162][184][183] [221]"
78 PRINTTAB(21)"[202][192][178][198][210][198][178][192][203]":GOSUB1100:FORD=1TO1000:NEXT
80 PRINT" [213][192][192][192][192][201][157][157][157][157][157][157][221]HEY![221][157][157][157][157][157][157][202][192][192][192][192][203][157][157][157][205][205]":GOSUB1010
81 FORD=1TO1300:NEXT:PRINT""G$
82 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
83 PRINT"[145][221] DO YOU KNOW WHAT THE  [221]
84 [153]"(null) BABY COMPUTER'S FIRST (null)
86 PRINT"[202][192][192][201] WORD WAS? [213][192][192][192][192][192][192][192][192][203][202][192][192][192][192][192][192][178][192][192][192][192][203]
88 [129]T[178]1[164]10:[153]""[163]24)"TAB(TAB(TAB(TAB(TAB("
90 [129]D[178]1[164] 50:[130]:[141]1010:[153]"ON"[163]24)"USRFREWAITNEWFREUSR":[141]1010:[141]1010
92 [129]D[178]1[164]20:[130]:[130]:[129]D[178]1[164]3000:[130]
95 [153]""G$G$G$G$G$[200](G$,10):[153][200](G$,10)
97 [153]" (null)TANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMD(null)COME(null)CMDCMDCMDCMDCMDCMD(null) ON (null)CMDCMDCMDCMDCMDCMDMID$TANTANTANTAN(null)CMDCMD(null)(null)":[141]1000
98 [153]""[163]12)"(null)TANTANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMDCMD(null)GUESS(null)CMDCMDCMDCMDCMDCMDCMDMID$TANTANTAN=TAN(null)CMDCMDCMD(null)":[141]1000
100 [153]""[163]22)"(null)TANTANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMDCMD(null)GUESS(null)CMDCMDCMDCMDCMDCMDCMDMID$TANTANTAN=TAN(null)":[141]1000
102 [153]""[163]32)"(null)TANTANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMDCMD(null)GUESS(null)CMDCMDCMDCMDCMDCMDCMDMID$TAN=TANTANTAN(null)CMDCMDCMDCMDCMD(null)":[141]1000
104 [129]D[178]1[164]1000:[130]
106 [153]""G$G$G$G$G$[200](G$,8):[153][200](G$,8):[153][200](G$,8)
110 [153]""[163]7)"(null)TANTANTANTANTANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD(null)GIVE UP?(null)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDMID$TANTANTANTANTANTANTANTAN(null)CMDCMDCMDCMD(null)(null)
111 FORD=1TO1300:NEXT:GOSUB1000
112 PRINT""TAB(20)"[213][192][192][192][192][192][192][192][192][192][192][192][201][157][157][157][157][157][157][157][157][157][157][157][157][157][221]AW COME ON![221][157][157][157][157][157][157][157][157][157][157][157][157][157]";
114 PRINT"[221] GIVE UP!! [221][157][157][157][157][157][157][157][157][157][157][157][157][157][202][192][192][192][192][192][178][192][192][192][192][192][203][157][157][157][157][157][157][157][221]":GOSUB1000
116 FORD=1TO2500:NEXT
118 PRINT""G$G$G$G$G$;:PRINTLEFT$(G$,8):FORD=1TO2300:NEXT
122 PRINT""TAB(18)"[213][192][192][192][192][192][192][192][192][192][201][157][157][157][157][157][157][157][157][157][157][157][221]         [221]";
123 PRINT"[157][157][157][157][157][157][157][157][157][157][157][221] 'DA-TA' [221][157][157][157][157][157][157][157][157][157][157][157][221]         [221][157][157][157][157][157][157][157][157][157][157][157][202][192][192][192][192][192][192][178][192][192][203]"
124 GOSUB1000:FORD=1TO200:NEXT:GOSUB1000:FORD=1TO2600:NEXT
126 PRINT""G$G$G$G$G$
128 PRINT""TAB(24)"[192]   [192][146]"
130 PRINTTAB(24)"[205][164][164][164][206][146]":FORD=1TO2000:NEXT
132 PRINT"[145][145]"TAB(24)"[164][164][164][164][164]"
140 J$="[170] [180][157][157][157][170][163][180][145][170][163][180][157][157][157][170][163][180][145][221][157].
142 [153]"SYS  "J$:[153]"PRINT"[163]17)"SYS"J$:[153]""[163]30)J$
146 [153]"      (null)(null)CMDCMD-<CMDCMD(null)(null)ONONOR^CMDCMD-<CMDCMD(null)(null)ON(null)CMD.
148 PRINT"[158]  [221][221][157][157][171][179][157][157][221][221][145][145][176][174][157][157][171][179][157][157][221][221][145][221][157].":GOSUB1050
150 FORD=1TO1000:NEXT
152 PRINT""TAB(17)"[144][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
154 FORT=1TO7:PRINTTAB(17)"[180]               [170]":NEXT
156 PRINTTAB(17)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
158 PRINT""TAB(31)"[144]."
164 PRINT""G$G$G$G$
166 PRINT""G$G$G$G$:FORT=1TO13:PRINTLEFT$(G$,13):NEXT
170 PRINT"         "
171 PRINT"        "
172 PRINT"[145][192][157][155]="
178 PRINTTAB(8)"[144]=D[192][192][192][203][145][157][201][157][157][202][145][157][213][203][145][157][213][203][145][157][213][192]"
180 POKE54296,15:POKE54296,0:FORD=1TO2800:NEXT
182 PRINT"[158]   THE SMART ALEX GOT HIS PLUG PULLED   ":FORD=1TO5000:NEXT:RUN
200 END
1000 PRINT""TAB(24)"[192]   [192]"
1002 PRINT""TAB(24)"[163][163][163][163][163]"
1004 FORD=1TO150:NEXT:GOSUB1010:PRINT"[145]"TAB(24)"[183][184][146][162][184][183]":FORD=1TO100:NEXT
1006 PRINTTAB(24)"[145][145][145][145][215]   [215]":FORD=1TO150:NEXT:RETURN
1010 S=54272:FORT=0TO23:POKES+T,0:NEXT:POKES+24,5:POKES+5,16:POKES+6,255
1020 FORT=1TO 3:FORZ=1TO3:POKES+1,INT(RND(1)*50)+54:POKES+4,33:FORK=1TO4:NEXT
1030 POKES+4,32:NEXT:NEXT:FORT=0TO23:POKES+T,0:NEXT:RETURN
1050 S=54272:FORT=1TO3:FORD=1TO250:NEXT:FORL=STOS+23:POKEL,0:NEXT:POKES+24,5
1060 POKES+5,25:POKES+6,255:POKES+4,21
1070 FORZ=1TO2:F1=67:FORY=1TO2:F2=55:POKES+1,F1:FORX=1TO3:POKES+15,F2
1080 F1=F1*.71:F2=F2*.8345:NEXT:NEXT:NEXT:POKES+6,15:NEXT:RETURN
1100 S=54272:FORT=0TO23:POKES+T,0:NEXT:POKES+24,8:POKES+5,16:POKES+6,255
1110 FORT=1TO15:FORZ=1TO5:POKES+1,INT(RND(1)*225)+20:POKES+4,17:FORK=1TO4:NEXT
1120 POKES+4,32:NEXT:NEXT:FORT=0TO23:POKES+T,0:NEXT:RETURN